// .txt

beginzonescript;

variables;

short crime_tolerance = 5;
short last_abil;
short i;
short walky = 0;
short set_att = 0;

body;

beginstate INIT_STATE;
	if (gf(62,13) < 8)
		sf(62,14,0);
		
	sf(62,8,0);
	
	set_name(9,"Quirce");
	set_level(9,28);
	set_new_abil(9,20);
	
	add_range_to_group(10,17,1);
	set_level(1001,26);
	
	set_name(10,"Ghar");
	set_boss_level(10,1);
	
	set_name(11,"Frostbreath Roamer");
	set_name(12,"Frostbreath Roamer");
	set_name(13,"Frostbreath Roamer");
	set_name(17,"Penned Artila");

	add_range_to_group(18,23,2);
	add_range_to_group(24,29,3);
	add_range_to_group(30,35,4);

	if (get_sdf(41,3) > 0) {
		make_zone_hostile();
		}

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	if ((gf(41,3) == 0) && (gf(62,7) > 3) && (gf(62,8) > 0)) {
		sf(41,3,1);
		print_str_color("You have killed several of Perikalia's soldiers. The city",3);
		print_str_color("  will hate you now.",3);
		make_zone_hostile();
		}
	if ((set_att == 0) && (gf(62,6) > 0)) {
		set_att = 1;
		set_attitude(1001,10);
		set_act_at_dist(1001,1);
		}
	
	if (char_ok(10) == FALSE) {
		sf(62,4,2);
		if (gf(62,3) == 3)
			sf(62,3,2);
		}
		
	// clear zone?
	if ((zone_clear(ME) == FALSE) && (get_flag(62,5) > 0)) {
		clear_zone(ME);	
		}
		
	if ((get_crime_level() >= crime_tolerance) && (get_sdf(41,3) == 0)) {
		make_zone_hostile();
		set_flag(41,3,1);
		}

	if (gf(41,3) == 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"Ahhhh.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"Curse that roamer.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"Need more bandages.");
		}
	
	if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_group()) && (tick_difference(last_abil,get_current_tick()) > 5))) {
		last_abil = get_current_tick();
		
		walky = walky + 1;
		if (walky == 4) {
			walky = 1;
			if (gf(62,12) == 0)
				sf(62,12,1);
				else sf(62,12,0);
			}
		}
break;

beginstate 10;
	sf(62,5,1);
break;

beginstate 11;
	if ((gf(62,14) == 0) && (has_spec_item(20) > 0))
		begin_talk_mode(73);
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
